J’essaie de reprendre quelques lignes du TP précédent.
Réalisé à
library(ggplot2) #Chargement du pckge
library(dplyr)
library(gapminder)
library(DT)
datatable(gapminder, rownames = FALSE, filter="top", options = list(pageLength = 5, scrollX=T) )
Et ça nous donne un très beau graphique interactif:
On va s’intéresser aux prix des AirBNB sur la Côte d’Azur
#Récupération des données de GitHub
data = read.table("https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/1_OneNum.csv", header = TRUE)
head(data)
## price
## 1 75
## 2 104
## 3 369
## 4 300
## 5 92
## 6 64
Et si on représentait l’évolution de la valeur du Bitcoin… en interactif !!!
Conclusion:
- On aurait du investir ans le Bitcoin !
- RMarkDown, c’est vraiment trop cool !!